home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_24_1988_Transactor_Publishing.d64 / data checker 64 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  231b  |  10 lines
  1. 1 read b:bc=bc+1:rc=rc+1:a=peek(64)*256+peek(63)
  2. 2 if b=-1 then print "end of data":goto9
  3. 3 if ch<>a then rc=1:ch=a
  4. 4 if b<>int(b) or b<0 or b>255 then c$="error!"
  5. 5 print"line:"a"data"b,c$:c$=""
  6. 6 get q$:if q$="" then 6
  7. 7 if q$="r"then print bc;rc
  8. 8 goto 1
  9. 9 end
  10.